   5 clear 
   6 .PROG.L-I REVERSE box SET
   7 . S.KENDALL 1/25/82
 570 &(9)=84
 574 S=rnd (30)mul 8
 576 T=S+4
 580 &(0)=S;&(1)=S
 582 &(2)=T;&(3)=T
 584 BC=rnd (30)mul 8
 586 FC=BC+4
 590 print "input rnd box SIZE
 592 input "  4right 32"C
 593 clear ;if C<4 C=4;if C>32 C=32
 594 B=rnd (C)
 600 for A=2to 72step 2
 620 box -42-B,0-B,A,A,3
 622 box -42-B,0+B,A,A,3
 624 box -42+B,0+B,A,A,3
 626 box -42+B,0-B,A,A,3
 630 next A
 650 for D=72to 2step -2
 670 box 42-B,0-B,D,D,3
 672 box 42+B,0+B,D,D,3
 674 box 42+B,0-B,D,D,3
 676 box 42-B,0+B,D,D,3
 680 next D
 690 for F=1to 300;next F
 700 for G=-80to 80step 2
 710 box G,0,1,80,3
 720 next G
 728 if &(22)=16goto 5
 730 goto 594
:return ;run 